﻿<!-- #include file="mymin.asp" -->
<%
If Request("submit") <> "" Then

	if len(Request.Form("wapurl"))<3 then
		Call Error("<card title='出错'><p>请输入网站地址！")
	end if

	if Request.Form("wapday")<>"" then
		if isdate(Request.Form("wapday"))=false then
			Call Error("<card title='出错'><p>首页倒计时时间设置出错，格式为2008-8-8")
		end if
	end if
	'----------------------------------------------------------------
	'	生成wap.asp文件
	'----------------------------------------------------------------
	dim HU_Config,HU_File

	HU_File= "../../config/wap.asp"'生成wap.asp文件路径

	HU_Config="<"&"%"
	HU_Config=HU_Config+chr(13)&chr(10)&"wapstyle="""&Request.Form("wapstyle")&""" '网站样式"
	HU_Config=HU_Config+chr(13)&chr(10)&"waptitle="""&forQuote(Request.Form("waptitle"))&""" '网站名称"
	HU_Config=HU_Config+chr(13)&chr(10)&"wapurl="""&forQuote(Request.Form("wapurl"))&""" '网站地址"
	HU_Config=HU_Config+chr(13)&chr(10)&"waplogo="""&forQuote(Request.Form("waplogo"))&""" '网站LOGO"
	HU_Config=HU_Config+chr(13)&chr(10)&"wapconst="""&Request.Form("wapconst")&""" '网站排版"
	HU_Config=HU_Config+chr(13)&chr(10)&"wapreport="""&Request.Form("wapreport")&""" '全站公告"
	HU_Config=HU_Config+chr(13)&chr(10)&"waplogin="""&Request.Form("waplogin")&""" '注册登录"
	HU_Config=HU_Config+chr(13)&chr(10)&"waplogined="""&forQuote(Request.Form("waplogined"))&""" '登录显示"
	HU_Config=HU_Config+chr(13)&chr(10)&"wapfavor="""&Request.Form("wapfavor")&""" '首页问候语"
	HU_Config=HU_Config+chr(13)&chr(10)&"waplink="""&Request.Form("waplink")&""" '首页链接"
	HU_Config=HU_Config+chr(13)&chr(10)&"wapdiscuss="""&Request.Form("wapdiscuss")&""" '文章评论"
	HU_Config=HU_Config+chr(13)&chr(10)&"waphits="""&Request.Form("waphits")&""" '文章点击率"
	HU_Config=HU_Config+chr(13)&chr(10)&"wapguest="""&Request.Form("wapguest")&""" '留言显示"
	HU_Config=HU_Config+chr(13)&chr(10)&"wapday="""&Request.Form("wapday")&""" '首页倒计时"
	HU_Config=HU_Config+chr(13)&chr(10)&"wapdayname="""&forQuote(Request.Form("wapdayname"))&""" '倒计时项目名"
	HU_Config=HU_Config+chr(13)&chr(10)&"wapword="""&forQuote(Request.Form("wapword"))&""" '敏感词过滤"
	HU_Config=HU_Config+chr(13)&chr(10)&"waplastc="""&Request.Form("waplastc")&""" '底部显示"
	HU_Config=HU_Config+chr(13)&chr(10)&"waplast="""&forQuote(Request.Form("waplast"))&""" '底部控制"
	HU_Config=HU_Config+chr(13)&chr(10)&"%"&">"
	Call savetofile(HU_Config,HU_File)
	Call buildCssByStyle(Request.Form("wapstyle"))
	Response.Write "<card id='card2' title='正在返回' ontimer='index.asp?sid="&sid&"'><timer value='10'/><p>"
	Response.Write "成功设置！正在返回..."
else%>
<card id="index" title="网站首要配置">
<p align="left">
网站样式:<select name="wapstyle<%=time_r%>" value="<%=wapstyle%>">
<option value="3">wap2.0宽屏</option>
<option value="2">wap2.0窄版</option>
<option value="1">wap1.0</option>
</select><br/>
站点名称:<input name="waptitle<%=time_r%>" type="text" value="<%=nowml(waptitle)%>"/><br/>
网站地址:<input name="wapurl<%=time_r%>" type="text" value="<%=nowml(wapurl)%>"/><br/>
站点LOGO:<input name="waplogo<%=time_r%>" type="text" value="<%=nowml(waplogo)%>"/><br/>
网站排版:<select name="wapconst<%=time_r%>" value="<%=wapconst%>">
<option value="left">居左</option>
<option value="center">居中</option>
<option value="right" >居右</option>
</select><br/>
全站公告:<select name="wapreport<%=time_r%>" value="<%=wapreport%>">
<option value="1">显示</option>
<option value="0">不显示</option>
</select><br/>
注册登录:<select name="waplogin<%=time_r%>" value="<%=waplogin%>">
<option value="1">显示</option>
<option value="0">不显示</option>
</select><br/>
┗登录显示:<input name="waplogined<%=time_r%>" type="text" value="<%=waplogined%>"/><br/>
首页问候语:<select name="wapfavor<%=time_r%>" value="<%=wapfavor%>">
<option value="1">显示</option>
<option value="0">不显示</option>
</select><br/>
首页链接:<select name="waplink<%=time_r%>" value="<%=waplink%>">
<option value="1">显示</option>
<option value="0">不显示</option>
</select><br/>
首页倒计时:<input name="wapday<%=time_r%>" type="text" value="<%=wapday%>"/><br/>
┗名称:<input name="wapdayname<%=time_r%>" type="text" value="<%=wapdayname%>"/><br/>
文章评论:<select name="wapdiscuss<%=time_r%>" value="<%=wapdiscuss%>">
<option value="1">需登录</option>
<option value="0">不限制</option>
</select><br/>
文章点击率:<select name="waphits<%=time_r%>" value="<%=waphits%>">
<option value="1">显示</option>
<option value="0">不显示</option>
</select><br/>
留言显示:<select name="wapguest<%=time_r%>" value="<%=wapguest%>">
<option value="1">需审核</option>
<option value="0">不审核</option>
</select><br/>
底部栏目:<select name="waplastc<%=time_r%>" value="<%=waplastc%>">
<option value="1">全站显示</option>
<option value="0">首页不显示</option>
</select><br/>
┗内容:<input name="waplast<%=time_r%>" type="text" value="<%=nowml(waplast)%>"/><br/>
敏感词过滤:<input name="wapword<%=time_r%>" type="text" value="<%=wapword%>"/><br/>
<anchor>保存配置
<go href="wap.asp?submit=true&amp;sid=<%=sid%>" method="post">
<postfield name="waplogo" value="$(waplogo<%=time_r%>)"/>
<postfield name="wapconst" value="$(wapconst<%=time_r%>)"/>
<postfield name="waptitle" value="$(waptitle<%=time_r%>)"/>
<postfield name="wapfavor" value="$(wapfavor<%=time_r%>)"/>
<postfield name="waplink" value="$(waplink<%=time_r%>)"/>
<postfield name="wapreport" value="$(wapreport<%=time_r%>)"/>
<postfield name="wapday" value="$(wapday<%=time_r%>)"/>
<postfield name="wapdayname" value="$(wapdayname<%=time_r%>)"/>
<postfield name="waplast" value="$(waplast<%=time_r%>)"/>
<postfield name="waplastc" value="$(waplastc<%=time_r%>)"/>
<postfield name="wapurl" value="$(wapurl<%=time_r%>)"/>
<postfield name="wapstyle" value="$(wapstyle<%=time_r%>)"/>
<postfield name="wapword" value="$(wapword<%=time_r%>)"/>
<postfield name="waphits" value="$(waphits<%=time_r%>)"/>
<postfield name="wapguest" value="$(wapguest<%=time_r%>)"/>
<postfield name="waplogin" value="$(waplogin<%=time_r%>)"/>
<postfield name="wapdiscuss" value="$(wapdiscuss<%=time_r%>)"/>
<postfield name="waplogined" value="$(waplogined<%=time_r%>)"/>
</go>
</anchor><br/>
温馨提示:<br/>
1、网站排版仅对wap1.0有效<br/>
2、底部栏目支持<a href="../ubbcl.asp?sid=<%=sid%>">UBB</a><br/>
<%end if%><br/>
<a href="index.asp?sid=<%=sid%>">[网站配置]</a><%call Last%>